NT 150 PTAS 



EL BOOM DE 
LOS MSX 

APRENDE A 
PROGRAMAR 
CON TU MSX 

NOTICIAS, INTERCAMBIOS, 
SOMOS TODO UN CLUB 
APUNTATE CON NOSOTROS 



¡DIEZ 
PROGRAMAS 
DE JUEGOS! 



PREMIO Y PUBLICACION DE 
LOS MEJORES PROGRAMAS 
DE NUESTROS LECTORES 



SORTEAMOS 
10 GRABADORAS 
SONY 



¡¡NO ESPERES QUE PASE LA BANDA!! 

SUSCRIBETE A MSX CLUB DE PROGRAMAS 

REGALAMOS 10 GRABADORAS SONY 

PORQUE MSX CLUB DE PROGRAMAS ESTA 

PENSADA PARA TI 

Suscribiéndote no sólo tienes la seguridad de tener todos los meses tu 
MSX CLUB DE PROGRAMAS en tu casa, sino que recibirás DOCE 
números pagando sólo DIEZ. 

Además entre los cien primeros lectores que se suscriban antes del 
25 de mayo de 1985 sortearemos doce grabadoras SONY. 

SUSCRIBETE Y GANA 

BOLETIN DE SUSCRIPCION MSX CLUB DE PROGRAMAS 

Nombre y apellidos 

Calle N.° 

Ciudad Provincia 

D. Postal Teléfono 

Deseo suscribirme por doce números a la revista MSX CLUB DE PROGRAMAS a partir del número 

Adjunto talón nominal a: 
MANHATTAN TRANSFER, S.A. 
C/. RocaiBatlIe, 10-12 
08023 Barcelona 

Tarifas: España por correo normal Ras. 1 .500- 

Europa por correo normal Ras. 1 .700- 

Europa por correo aéreo Ras. 1 .900- 

América por correo aéreo Ras. 3.700 - 

Importante: Colocar en el sobre: Departamento Suscripciones MSX CLUB 
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AVISO IMPORTANTE A 
TODOS NUESTROS LECTORES 

Nuestra revista pretende ser una publicación 
abierta, dedicada exclusivamente a todos los 
usuarios del sistema MSX. 

Creemos que las ventajas que ofrece este nuevo 
sistema, lo va a convertir en el favorito del 
mercado. 

Por ello MSX CLUB DE PROGRAMAS ofrece 
a sus lectores: 

1 . ° Un consultorio totalmente gratuito sobre las dudas en programación. 

2. ° Un tablón de anuncios abierto a todos nuestros lectores para que en él y de forma gratuita pue- 

dan realizar intercambios de programas e información. Además a través de esta sección admiti- 
remos pequeños anuncios gratuitos sobre cambios y/o compraventas tanto de software como de 
hartware. 

3. ° También publicaremos todas aquellas cartas que consideremos de interés y 

obsequiaremos en nuestros concursos de programación a aquellos colaboradores espontáneos 
que nos remitan sus programas. 

Para ello sólo tenéis que escribirnos, especificando en el sobre para qué sección remitís vuestra co- 
rrespondencia o sea: 



- TABLON DE ANUNCIOS 
-CONSULTORIO 



Por si esto fuera poco queremos estar en contacto con todos los clubs de MSX de nuestro país. De 

modo que si pertenecéis a algún club de MSX no dudéis en enviarnos vuestra dirección que publica- 
remos para que os pongáis en contacto con otros usuarios de vuestra misma localidad. 
Ya lo sabéis escribid sin falta a 

t 

MSX CLUB DE PROGRAMAS (sección) 
RocaiBatlle, 10-12 
08023 Barcelona 



¡PONGA OTRO VENDEDOR EN SU TIENDA! 





de PROGRAMAS 



VA DIRECTAMENTE AL USUARIO 

Para que todas las tiendas de informática 
y productoras de software entren en línea hemos pensado 
una sección muy especial. 



CLASIFICADOS MSX CLUB 




Aquí el usuario de un 
ordenador MSX podrá 
encontrar todo aquello que 
está buscando en el lugar 
' preciso. 



NO QUEDE FUERA 
DE LINEA 

¡ANUNCIESE! 

Si quiere un vendedor más, 
sólo tiene que ponerse en 
contacto por carta o por 
teléfono con nosotros. 
Diríjase a MSX CLUB DE 
PROGRAMAS 
CLASIFICADOS. 
RocaiBatlle, 10-12 
08023 Barcelona 
Tel. (93)21122 56 
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Programa estrella 



JET-MONSTER 



Con este sensacional juego 
estrella abrimos la lista de pro- 
gramas que publicaremos en to- 
dos los números de MSX 
CLUB. Lístalo y juégalo. ¡Es fa- 
buloso! 




Jet-Monster, como su nombre indica en un juego de monstruos muy divertido, que consta de cinco pantallas. En él eres 
un navegante espacial que tiene tres posibilidades de supervivencia. En la primera y segunda pantalla tienes que eliminar 
a un monstruo de nueve vidas, en la tercera esquivarlo, lo mismo que en la cuarta y quinta, pero en estas hay además unos 

campos magnéticos mortales para ti. En el listado se hallan las instrucciones explicadas con mayor detalle. 
Como todos los programas que publicamos, éste también es susceptible de ser mejorado -como por ejemplo modificar el 
tamaño de los monstruos variando la sentencia Screen-. Si consigues una mejora interesante envíala. MSX CLUB y otros 

lectores estarán muy contentos de introducirla en sus listados. 



llZi REM JET-MONSTER 
20 CLEAR 20000 8É£!SsKEY 
3i? L=3 :F=0 :P=1 :G=1 :M=0 
40 COLOR 10,1,1 :CLS 
50 LOCATE 0,0:PRINT "■ 



OFF :! 



mmmmmmmmmimmmmBmmmmmitmMxmámtík :loca r e . 2 : pr 1 

-MONSTER" : LOCATE 0,4:PRINT 11 ■■■¡MHHHHBHHHHHMHHHBHNMflM'' 

60 LOCATE 3,7:PRINT "Para mover utiliza los cursores" :LOCATE 3,9:PRINT "Para d i 5 
parar la barra espac i adora" 

70 FGR N=0 TO 5 :PLAY "V 1 50 1 EFGEFG" : BEEP :NEXT N 

30 LOCATE 4,U:PRINT "En las ultimas pantal 1 as (3 ,4 ,5)r,o podras disparar 

.Aléjate de los monstruos ." -.LOCATE 5 ,22 :PRINT" (Pulsa la barra espadadora 

) " 

90 FOR N=0 

1O0 LOCATE 
(campos 



TO 7 :PLAY"vl5o5dcedce" :BEEP :NEXT N 

4, 16 SPRINT "En la cuarta pantal la , aparecen unas rayas verticales 

magnéticos) que al ser tocadas te quitan una vida." 

BOTO 120 ELSE GOTO 110 



110 IF INKEí*=" " THEN 
120 CLS:C0L0R 10,1 ,1 

130 LOCATE ,0 :PRINT"HHBHHHHHHH 

MISION" :L0CATE 0,4:PRINT " ■■MHHHHMMI 

140 FOR N=0 TO 6 :PLAY "V 1501 EFGEFG" :BEEP :NEXT N 
150 LOCATE 5,7 SPRINT "En las dos primeras pantallas 
nstruos en la cuarta escapar de los 

as que pasar los campos magnéticos y 



I" : LOCATE 5,2: PR INI " TU 



tu mi s ion es matar mo 
monstruos. En la quinta , tenar 
llegar a las columnas de DEEN . " 

160 FOR N=0 TO 6 :PLAY " vl5olabcabcabc " sBEEP :NEXT N 
170 LOCATE 5,15:PRINT "Una vez has llegado, acaba el 



pasar los monstruos ." :L0CATE 5,22:PRINT 

N 



juego, pero antes ten 



( Pu Isa la b árr a espac i 



dras que 
adora) " 

180 FOR N=0 TO 15 :PLAY " V150SABCABC" :BEEP :NEXT 
190 IF INKEY*=" "THEN 200 ELSE 190 
200 COLOR 10,1,1 ION SPRITE GOSUB 1060 
210 OPEN '*"grp :"AS#1 
220 CLS rSCREEN 2,3 

230 A*=CHRí (S<H0) +CHRÍ (?<HF) +CHRÍ (?<H1F) +CHRÍ (&H1B) +CHRÍ (?<H3F ) +CHR$ (i-<H15) +CHRÍ ( ?<H0 ) 
+ CHRÍ (?<HA) 

240 B*=CHR* (&H1F) +CHR* (&H1F ) +CHRÍ (&H1F) +CHR* ( ?<H 1 F ) +CHR* ( &HF ) +CHR* ( &H7 ) +CHR* (SéHi) 
+CHR* (8<H0) 

250 C$=CHR:Í (&H0) +CHR$ (&H80) +CHRÍ (&HC0) +CHRÍ (&HE0) +CHR$ (&HF0) + CHR $ ( &NF8 ) +CHR* (&HF 
C) +CHR* C&HFC) 

260 D$=CHRí (?<HFC) +CHR* (&HFE) +CHRÍ <?<HFE>VcHR* (&HFE) +CHR* (?<HFE> +CHRÍ (8/HEG) + CHR* (?/.H 
OS) +CHR* (?<H0) 

270 SPR I TE* ( ) =A$+B$ +C*+D# 
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Programa estrella 



280 E*=CHRS (&H0) +CHR$ (&H3) +CHRÍ (8eH7) +CHR* (&H3B) +CHR-Í ( S<H3B ) +CHRT- ( &H3B ) +GHR$ ( &.H3B ? 
+CHR*(?<H3F) 

290 F*=CHRí ( &H3F ) +CHRÍ ( 2<H3F ) +CHRÍ ( ?<H3F ) +CHR$ ( ?<H3F ) +CHR* (&H3F > +CHR* Í&H.C > 1-C.HR'í (Í.H1 
8) +CHRT (5íH3C) 

3m Gí=CHRí <?<H0> +CHR* ( ?<HE0 ) +CHR$ (&HF0) +CHR* ( S<HA0 ) +CHR* ( &HF0 ) +CHR* (&H£i¿i ) +CHfi-f i¿HS 
0) +CHR* (?<HE0) 

310 H*=CHR* (&HC1 ) +CHR* (&HEF) +CHR* (&HFB) +CHR$ ( &HD0 ) +CHR* ( 8íHC0 ) +CHRÍ (&HC0) +CHRJ (?<H 

£.1?) +CHR*(&H70> 

32Ü SPRITE* ( 1 )=E*+F*+G$+HÍ 

330 SPRITE* (2) =CHRí ( &H0 ) +CHRÍ ( ?<H0 ) +CHR:* ( &H0 ) +CHR* ( ?<H0 ) +CHR* ( &H28 ) + CHR* ( S-.Ho5 ) +CHR 
i ($eH82) +CHR* (?<H0) 

340 I * =CHR$ ( ?<H0 ) +CHR* ( ?<H3 ) +CHR* ( S<H7 ) +CHR* ( ícHD ) +CHR$ ( ScH 1 F > +CHR* ( &H3A ) +CHRS < ?,H38 ) * 
CHR* (S<H3D) 

350 J*«CHft* ( &H 1 F ) +CHR* ( &H7F ) +CHR* ( 8tH7F > +CHRÍ ( &H3F ) +CHR* ( ícHIF ) +CHR* ( ?<HF ) +CHR* ( ?<H6 

360 K*=CHR* (?/.H0) +CHR* <?<HC0) +CHR* (&HE0) +CHR* (?<HB0) +CHR* (&HFB) +QHR* (&HBC) +CHRS t&Hl 
C) +CHR* (&H5C) 

370 SPRITE* <5>=I*+J$+K*+D$ 

380 Q*=CHR* (&H0) +CHR* (&H7) +CHR* <&HF> +CHR* <&H5>+CHR* <&HF)+CHR* <&M74+CHR* mM ^CHRj <?, H 7> 
390 R*=CHR* (8<H83> +CHR* (?<HF7) +CHR* (&H1F) +CHR* CfcHÉ'j +CHR*<8cH3) +CHR* (&H31 fCHR$ (&H6) * " 
CHR*<&HE> 

400 S*=CHR* ( ?<H0 ) +CHR* ( ?<HC0 ) +CHR* ( S-.HE0 ) +CHR* ( &HDC ) +CHR* < S/.HDC ) +CHR* \ 8/HDC ) +CHR* I &HS 
C)+CHR*(?<HFC) 

410 SPRITE* (3) =Q*+R*+S*+T* 

420 Tf =CHR* ( &HFC ) +CHR* ( &HFC ) +CHR* ( ScHFC ) +CHR* ( &HFC ) +CHR* ( ?<HFC ) +CHR* ( &H30 ) +CHR* ( &H 

1B)+CHR*<8<H3C> 

430 SPRITE* (3) =Q*+R*+S*+T* 

440 U*=CHR* (?<H1 ) +CHR* (S<H3) +CHR* ( ?<HF ) +CHR* (?<H3F ) +CHR* (&H3F ) +CHR* U..H3F) +CHR* ( 2-.HFF i 
+CHR* (&HFF) 

450 W*=CHR* (&HF8) +CHR* (&HFC) +CHR* (&HF6) +CHR* (?<HFF ) +CHR$ (?<HF : F) +CHRÍ (StHF5) +CHRJ t*H 
C0)+CHR*(?<HC0) 

4Ó0 XÍ=CHRí (?<HEA) +CHRÍ (?/.HFF) +CHRÍ ( ?.:HFF ) +CHRÍ (Í<HFE) +CHRÍ (?<HFC) +CHRT- C&HFC) +CHRÍ (&H 

F8 ) ■» CHRí ( ?<HF0 ) 

470 SPRITE* (4)=UÍ+BÍ+WÍ+X* 

480 CLS:LINE ( 16 ,0) - (245 , 191 ) ,8,B:LINE (20 , 150) - (240 , 185) ,8 ,B :L1NE ( 23 , 1 52) - (33 , 

183) ,8,B:LINE ( 175 , 152) - (235 , 183) ,8,B 

490 COLOR 10-.PRESET (88 , 155) :PRIN T #1 , "FASE : " ;P 

500 IF P=l THEN J=4:H=U 

510 IF P=2 THEN J=5:H=7 

520 IF P=3 THEN J=4 :H=7 

530 IF P=4 THEN J=0:H=2 

540 IF P=5 THEN J=5:H=6 

550 PUT SPRITE , (50 , 152) ,H , J 

560 PUT SPRITE 1 , (205 , 151 ) , 10 ,3 

570 CIRCLE (190,167) ,14,10, , ,1 .4 :PAINT ( 190 , 167) , 10 :CIRCLE < 33 , i 67 ) , 1 4 , , , 1 . 4 ¿P 
AINT (38,167) ,H 

580 COLOR 1 :PRESET ( 180 , 167) :PRINT #1,;L:PRESET (28 , 167) :PRINT #1,;F 

590 LINE (85, 170) -(150, 183) ,8,B:C0L0R 10 :PRESET ( 103 , 173) :PRINT#1 , "D .6 .C" 

600 COLOR 10,1 ,1 

610 FOR N=0 TO 100 

620 R=224*RND ( 1 ) +20 :T=150*RND ( 1 ) 

630 PSET (R,T) ,11 :NEXT N 

640 0=0 

650 FOR N=0 TO 15 

660 LINE (O,0)-(O,191) ,1 

670 0=0+1 

680 NEXT N 

690 IF P<=4 THENT=15*RND ( 1 ) :CIRCLE ( 120 ,60) ,40 ,T , , , 1 .4 :CI.RCLE (60 ,80) , 15 ,T , , , 1 . 1 

:PAINT (120,60) ,T:PAINT (60,80) ,T 

700 IF P=3 THEN GOTO 1270 

710 IF P=4 THEN BOTO 1380 

720 IF P=5 THEN GOTO 1650 

730 X=130:Y=130 

740 IF P=2 THEN Q=7 :M=5 :C=100 :V=30 
750 IF P=l THEN Q=l 1 :M=4 :C=50 :V=10 



760 PUT SPRITE 3,<C,V),Q,M 
77® PUT SPRITE 2,<X,Y) ,10, G 

780 D«STICK<0) 

790 IF D=0 THEN PUT SPRITE 2 , < X , Y ) , 10 ,G : Y = Y+6 :PUT SPRITE 3 , (C ,V> ,Q ,M :C=C-10 :V=V+ 4 
800 IF D=3 THEN X=X +5 : Y=Y+3 :C=C-15 :B=1 : IF X>210 THEN X=210:GOTG 840 
810 IF D=7 THEN X = X-5 : Y = Y+3 : V=V-15 :C=C+19 :G=3 : IF X<16 THEN X = 16:G0T0 840 
820 IF D=l THEN X=X+10:Y=Y-5:X=X-10 :C=C+15 :V=V+10 : IF Y<0 THEN Y=115:G0T0 840 
830 IF INKEY*=" "THEN GOTO 910 
840 IF C<16 THEN C=16:C=C+20 
850 IF Y>115 THEN Y = 115 
860 IF O210 THEN C=210 :C=C-35 :V=V+3 
870 IF V>115 THEN V=115:V=V-10 
880 IF V<0 THEN V=V+15 
890 SPRITE ON 
900 GOTO 760 

910 IF G=l THEN Z-X+35 :B=Y+10 
920 IF G=3 THEN Z=X-35 :B=Y+10 
930 FOR N=0 TO 10 
940 PUT SPRITE 4,(Z,B),6,2 
950 IF G=l THEN Z*Z+15 
960 IF G=3 THEN Z=Z-15 
970 IF Z>255 THEN Z=255 
980 IF Z<0 THEN Z=0 

990 SOUND 0,0:SOUND 1,5:S0UND 2,0:SOUND 3,13:S0UND 4,255:S0UND 5,15:S0UND 6,l3:S 
OUND 7,0:SOUND 8,16:S0UND 9,16:S0UND 10,16:SOUND 11,0:SOUND 12,16:SüUND 13,0:FGR 

U=l TO 30:NEXT U:SOUND 12,56:S0UND 13,0 
1000 NEXT N 

1010 PUT SPRITE 4 , (255,100) ,1 ,2 

1020 L=L-1 :LINE ( 1 87 , 1 65 > - ( 1 97 , 1 75 ) , 1 , BF : PRESET ( 180 , 167) :COLOR 1 :PRINT #1,L:IF 

L=0 THEN GOTO 1240 
1030 IF P=4 THEN GOTO 1430 
1040 IF P=5 THEN GOTO 1650 
1050 GOTO 760 
1060 SPRITE OFF 

1070 FOR N=0 TO 30:BEEP:NEXT N 
1080 IF P>=3 THEN GOTO 1130 

1090 IF G=l AND X<Z AND Z-8>X THEN GOTO 1120 
1100 IF G=3 AND X>Z AND Z+8<X THEN GOTO 1120 
1110 GOTO 1130 

1Í20 F=F+1:LINE (30 , 167) - (45 , 175) ,H ,BF :COLOR 1 : PRESET (28 , 167 ) :PRINT #l,F:GOTO 1 
140 

1130 L=L-1:LINE < 187 , 165) - < 197 , 175) , 10 ,BF :PRESET ( 180 , 167) :COLOR 1 :PRINT #1 ,L 
1140 IF P=3 THEN F=F+1 
1150 IF P=5 THEN X=200 

1160 IF P<=2 AND F=9 THEN P=P+1 :F=0 :FOR N=0 TO 200:NEXT NzGÜTÜ 220 

1170 IF P=3 AND F=20 THEN P=P+1 :F=0 :FOR N=0 TO 20®: NEXT N:GOTÜ 220 

1180 IF L=0 THEN GOTO 1240 

1190 PUT SPRITE 4, (255,100) ,1 ,2 

1200 IF P=3 THEN GOTO 1280 

1210 IF P=4 THEN GOTO 1430 

1220 IF P=5 THEN GOTO 1680 

1230 GOTO 740 

1240 PRESET (100,100) 

1250 COLOR 10:PRINT #1,"GAME OVER" 

1260 IF INKEY*=" " THEN GOTO 10 ELSE GOTO 1260 

1270 X=150:Y=100 

1280 X = X :Y = Y :C=20:V=100*RND( 1 ) 

1 290 PSET ( 200 , 30 ) : DRAW " C8R20D 1 00L20U20R5U60L5U20 " : PA I NT ( 2 1 5 , 50 ) , 8 
1300 PUT SPRITE 2, (X, Y), 10, 3 
1310 PUT SPRITE 3,(C,V),7,4 
1320 D=STICK(0) 

1330 IF D=0 THEN PUT SPRITE 2 , ( X , Y ) , 10 ,3 : Y = Y+7 :PUT SPRITE 3 , ( C , V ) ,7,4: C=C+8 : 1 F Y 

>100 THEN Y=100 

1340 IF O200 THEN GOTO 1140 

1350 IF D=l THEN Y = Y-10 :C=C+8 : IF Y<0 THEN Y=0 
1360 SPRITE ON 
1370 GOTO 1300 

1380 X=210:Y=97:G=3:C=50:V=97 
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Programa estrella 



1390 PSET (25,100) :DRAW"cl0r35dl0135ul0" :PAINT (40 , 105) , 10 :COLOR 1 ;fH**5SÉT (28,1-3 
1) :PRINT#l , "DEEN" 

1400 PSET (15,130) :DRAW "C8R140D20R50U20R40" :PAINT (20,135) ,8 
1410 S=160:COLOR 10:FOR N=0 TO 8:LINE ( S ? 1 50 ) - ( S , 50 ) : S=S+5 : NEXT N 
142* S=50:COLOR 10:FOR N=0 TQ 6 :LINE (S ,0) - (S ,50) :S=S+5 :NEXT N 
1430 PUT SPRITE 2, (X, Y), 10, 6 
1440 PUT SPRITE 3,(C,V),3,0 
1450 D=STICK(0) 

1460 IF D=0 THEN PUT SPRITE 2,(X,Y) , 10 ,G : Y = Y+7 :PUT SPRITE 3 , (C , V) ,3 ,0 :C-C+7 
1470 IF D=3 THEN X = X+5 : Y = Y+7 :C=C-15 :G=1 :IF X>200 THEN X=200:GQTU 1500 
1480 IF D=7 THEN X=X-7 : Y = Y+7 :C=C+15 :G=3 : V=V-9 : IF X<20 THEN X=20:GOTD 1500 
1490 IF D=l THEN Y = Y-7 :C=C-10 :V=V+15 : IF Y<0 THEN Y=0:GOTO 1500 
1500 IF O200 THEN C=200 

1510 IF X>50 AND X <60 AND Y <50 THEN X=210:GOTO 1130 
1520 IF C<16 THEN C=16 
1530 IF Y>97 THEN Y =97 
1540 IF V<0 THEN V=0 
1550 IF V>97 THEN V=97 

1560 IF X>150 AND X<190 AND Y >50 THEN X=210:GUTG 1130 
1570 IF L=0 THEN GGTÜ 1240 

1580 IF X<40 AND Y < 100 THEN P=P+1 :F=0 : A=A+2 :GOTO 1610 
1590 SPRITE ON 
1600 GOTO 1430 

1610 FOR N=0 TO 200:NEXT N :SCREEN :CLS : COLOR 10,1,1 

162g. LOCATE 0,0:PRINT " ilMMM MMMMMMMi" ¡LOCftTE 8,4:PR1NT"» 

*aauuaamMmmmwamm*m<\\m iiiiiimiiiiv : lócate s ,2 :print"has llegado al templo de de 

ENCLOCATE 5,7:PRINT "Prepárate para entrar en el." 
1630 LOCATE 5,22:PRINT "(Pulsa la barra espadadora) " 
1640 IF INKEY*=" "THEN GOTO 220:ELSE GOTO 1640 

1650 S=40:FOR N=0 TO 4:PSET (S,30):DRAW "C7r20tí5i3dl00r3d5120u5r3ul0013u5d5r20i 1 

0d 100r51 15r5ul00r 10d 100" :5=S+4i¿i :NEXT N 

1660 LINE(30,140)-(230,150) ,7,BF 

1 670 X=200 : Y = 1 05 : X 1 = 150 : Y 1 =20 : X2=70 : Y 2-20 : G=3 

1680 PUT SPRITE 2,(X,Y) ,10, G 

1690 PUT SPRITE 3 , ( X 1 , Y 1 ) ,6 ,5 

1700 PUT SPRITE 4, (X2,Y2) ,6,5 

17Í0 D=STICK(0) 

1720 IF D=0 THEN PUT SPRITE 2 , ( X , Y ) , 10 ,G :PUT SPRITE 3, (XI , Y 1 ) ,6,5 :PUT SPRITE 4 , 
X2,Y2) ,6,5:Yl=Yl+10:Y2=Y2+5 

1730 IF D=7 THEN X=X-8 : Y 1 = Y 1+5 : Y2=Y2+10 : IF X<20 THEN GOTO 1820 

1740 IF D=3 THEN X = X+8 : Y 1 = Y 1-7 : Y 2= Y 2+7 : IF X>200 THEN X=200 

1750 IF Yl>100 THEN Y 1=0 

1760 IF Y 1 <0 THEN Y 1 = 130 

1770 IF Y2M00 THEN Y 2=0 

1780 IF Y2<0 THEN Y2=130 

1790 IF L=0 THEN GOTO 1790 

1800 SPRITE ON 

1810 GOTO 1680 

1820 SCREEN 0:CLS:COLOR 10,1 ,1 : SPRITE OFF 

1830 LOCATE 0,0:PRINT 1 ' mim^^ niTl fMBMBBM| , 9 ">.P»tMT » 

O HAS LOGRADO" :LOCATE 0" ~ " RiN ' 

1840 FOR N=0 TO 50:BEEP:NEXT N 

1850 LOCATE 5,22:PRINT "(Pulsa la barra espadadora)" 
1860 IF 1NKEY*=" "THEN GOTO 1870 ELSE GOTO 1860 
1 870 P= 1 : R=R : L=L : F=0 
)830 GOTO 



MI PROGRAMA MSX 




Todos nuestros lectores están invitados a escribir sus propios 

programas. 

MSX CLUB DE PROGRAMAS seleccionará aquellos que estén 
mejor diseñados, que sean originales, útiles o entretenidos y los 

publicará. 

Todos los listados que publiquemos recibirán 5.000 pts. y 
participarán en el sorteo de una fabulosa impresora. 

BOLETIN DE PARTICIPACION 

(Para enviar adjunto al listado) 

NOMBRE DEL PROGRAMA 

TIPO DE LISTADO 

JOYSTICK O TECLADO 

INSTRUCCIONES DE CARGA: 

INSTRUCCIONES DE JUEGO: 

TIPO DE GRABADORA EMPLEADA 

MARCA DEL ORDENADOR 

NOMBRE Y APELLIDOS DEL AUTOR 

EDAD CALLE N.° 

CIUDAD D.P TEL 

Para uso exclusivo de MSX CLUB DE PROGRAMAS 

FECHA DE RECEPCION NOMBRE DEL EVALUADOR 

PUBLICABLE GRAFICOS SONIDO 

ORIGINALIDAD 

OBSERVACIONES 



Para todos aquellos listados que superen las 25 líneas es 
imprescindible enviar cassette grabado. 



Remitirá: MSX CLUB - MI PROGRAMA 
Roca i Batlle, 10-12, bajos 
08023 Barcelona 



n 



I 



Monitor al día 



IMPRESORA 
TOSHIBA HX-P570 

El gran almacén de datos 




Si bien no es veloz, la impresora plotter 
Toshiba HX-P570 es ideal para que los 
usuarios de microordenadores MoX lis- 
ten sus programas v realicen el proceso de 
textos, junto con los programas suminis- 
trados por Toshiba, esta impresora tiene 
cuatro colores con los que puede realizar 
gráficos a todo color, diagramas de ba- 
rras, etc., a una velocidad de 285 pasos 
por segundo. El precio aproximado es de 
68.000 pts. 



UNIDAD DE 
DISCOS SONY 

El gusto de la perfección 




Las unidades de disco es uno de los pe- 
riféricos que ofrecen mayores posibilida- 
des de uso, ya que el almacenamiento de 
datos se hace cada vez más importante 
para el usuario de un microordenador. El 
Micro Ploppy Disk Drive de Sony-HBD- 
50-, está diseñado para usar diskettes de 
3,5 pulgadas y para conectarse en apara- 
tos MSX de cualquier marca. Entre sus 
principales características destacamos el 
controlador WD2793-02, su velocidad de 
transferencia de 250K/segundo y su velo- 
cidad de rotación de 300 r.p.m. Los tipos 
de ficheros son secuenciales y aleatorios. 
El precio aproximado del HBD-50 es de 
81.000 pts. 



HYPER SPORTS I Y II 



Novedades de Konami 



La Konami, cuyos cartuchos sobre 
pruebas olímpicas -Track and Field I y 
II-, están alcanzando un notable éxito de 
ventas, continúa con la línea deportiva y 
ya ha puesto en el mercado dos nuevos 
cartuchos de vídeo games para la norma 
MSX. Se trata de HYPER SPORTS en las 



versiones I y II, que contienen interesan- 
tes pruebas en las que los jugadores tienen 
que poner de manifiesto una gran habili- 
dad y notables reflejos para superarlas. La 
importación de estos cartuchos no tardará 
en realizarse. 
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Dimensión NEW Lanza 

«EL GERENTE» y 
«CONTABILIDAD 
DOMESTICA» 



La empresa española de software DI- 
MENSION NEW -Meridiana, 308, ent. 
52. 08027 Barcelona-, ha lanzado al mer- 
cado dos cassettes verdaderamente inte- 
resantes. Se trata de «El gerente», un pro- 
grama de juego de estrategia empresarial, 
semejante en su estructura a los que se 
realizan internacionalmente entre equi- 
pos de grandes compañías. 

El otro cassette contiene el programa 
«Contabilidad doméstica» y, como su 
nombre lo indica, el usuario puede dispo- 
ner de una completísima contabilidad 
personal para el hogar o para una peque- 
ña empresa, dado que cada uno tiene que 
determinar los sectores o conceptos que 
más le interesen. 




MICROORDENADOR CANON V-20 

Un MSX muy interesante 

trada al MSX-DOS, además de una salida 
de impresión que lo coloca ante una utili- 
zación semi profesional. Su teclado de 72 
teclas es suave y agradable al tacto. Su di- 
seño y fácil acceso lo hacen un micro muy 
interesante. 



El V-20 es el microordenador de la fir- 
ma Canon para el sistema MSX, de gran 
presencia y notable versatilidad. Global- 
mente el V-20 tiene dos características 
muy interesantes. Hay que destacar sus 
64K de base que permiten una buena en- 




EL BOOM DE LOS MSX CLUBS 



El éxito extraordinario de los 
microordenadores de la norma 
MSX ha dado origen a que muchos 
usuarios se agrupen en clubs. Si 
bien hasta ahora la función de és- 
tos no está totalmente definida, sí 
está claro el interés por llevar a 
cabo una labor conjunta de inter- 
cambio de conocimientos, progra- 
mas, periféricos, etc. En Madrid ya 
funciona el «Club Usuarios 
MSX», y en Barcelona el «3D Sis- 
temas». 

El primero de ellos —Pza. del 
Navio 1 . 28042 Madrid-, nos hace 
saber que funciona como una Aso- 
ciación dedicada a solventar las 
dudas de los miles de usuarios y 
también de relacionarlos, para lo 
cual está realizando gestiones con 
otros clubs de España y del extran- 



jero. La meta es llegar a una Fede- 
ración que coordine la labor de to- 
dos los clubs. 

El segundo de los clubs mencio- 
nados -Balmes, 252. 08006 Barce- 
lona- lie 'a a cabo una intensa la- 
bor informativa sobre el uso del 
material MSX y funciona con la 
misma norma que emplean los vi- 
deoclubs, es decir que para aso- 
ciarte hay que pagar una cuota de 
inscripción y otras periódicas, lo 
cual te da derecho al uso de harwa- 
re, alquiler de periféricos e inter- 
cambio de programas. 

En esta misma sección -y a me- 
dida que nos informen de su exis- 
tencia- iremos dando a conocer 
los clubs de otras ciudades españo- 
las. 
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El MSX por dentro 



LAS ARMAS DEL 
PEQUEÑO SAMURAI 



£1 reciente boom de los micro 
ordenadores del sistema MSX 
no es producto del azar. Un 
grupo de empresas japonesas y 
la Philips europea se han deci- 
dido, en beneficio del usuario, 
a que todos sus aparatos hablen 
un idioma común. El resultado 
salta a la vista. En pocos meses 
se han vendido miles de apara- 
tos y algunas compañías han 
agotado sus existencias. 



La rápida popularización de los mi- 
croordenadores cogió por sorpresa 
a los fabricantes, que cometieron el 
mismo error en el que ya habían incurri- 
do en el campo del vídeo: pretender im- 
poner -cada uno por su cuenta- su pro- 
pio sistema ocasionando una serie de 
trastornos y gastos inútiles en los usua- 
rios. Muchas empresas informáticas en- 
traron en la misma absurda competencia 
y antes de desarrollar un sistema común y 
compatible, se dedicaron a fabricar y 
vender sus propios aparatos, con su pro- 
pio lenguaje, limitando las posibilidades 
de empleo de software y periféricos de la 



misma marca e incluso a un mismo mo- 
delo. 

Las compañías japonesas que decidie- 
ron intervenir en el mercado informático 
con sus propios aparatos tuvieron el 
buen criterio de desarrollar sus produc- 
tos con un sistema único y entrar a com- 
petir con el caos de lenguajes particula- 
res, por un lado y con modelos eficaces 
por otro. De modo que la diferencia en- 
tre las marcas del sistema MSX y las otras 
estriba fundamentalmente en que ellas 
ueden «hablar» entre sí sin ningún pro- 
lema, y la diferencia entre las propias 
marcas MSX hay que buscarlas en las 





particulares prestaciones que ofrecen los 
distintos modelos, los que se adecúan 
más o menos a las necesidades de cada 
usuario. 

El corazón del samurai 

El micro ordenador MSX es como un 
pequeño samurai con el que los japone- 
ses nan salido a competir en el mercado 
internacional con otros sistemas y marcas 
tan introducidas como Commoaore, Sin- 
clair, IBM. etc. El arma más eficaz es la 
compatibilidad de las distintas marcas 
con todo el software y periféricos -im- 
presoras, monitores, disc drives, joys- 
ticks, etc-, pero su fuerza está en un di- 
minuto y potente elemento interior que 
constituye su verdadero corazón, el mi- 
croprocesador Z80A. Y este corazón es 
complemento primordial de una combi- 
nación de chips que constituyen el cere- 
bro de un aparato MSX. Así, el micro- 
procesador Z80A está relacionado con el 
chip de vídeo TMS-9929 A y el chip de 
audio AY-3-8910, lo que da como resul- 
tado una resolución de texto de 24x32 ó 
40 caracteres; un modo gráfico de 
256 X 192 pixels; 16 colores; 32 sprites y 
un sonido de 8 octavas y 3 voces. 

Establecidos los componentes tecno- 
lógicos que hacen que un ordenador 
MSX viva y piense, la pregunta que que- 
da en el aire es ¿en qué consiste el MSX? 
La norma MSX -Microsoft Extended- 
ha sido desarrollada por la compañía 
norteamericana Microsoft y la compañía 
nipona Kabushi Kaisha ASCII emplean- 
do el lenguaje BASIC MSX o BASIC-E 
(Extendido) con el objetivo de competir 
en el duro mercado norteamericano y ja- 
ponés en el segmento de los microorde- 
nadores domésticos. 

La Kabushi Kaisha ASCII -una de las 
mayores empresas editoriales de publica- 
ciones informáticas de Tapón-, tenía 
como dato fundamental el hecho de que 
el BASIC-E era el preferido por los japo- 
neses para la programación. Al mismo 
tiempo la industria japonesa necesitaba 
dar un golpe de timón a sus ventas, por lo 
que la mayoría de los grandes fabricantes 
no dudaron en apoyar el proyecto de lan- 
zar al mercado nacional e internacional 
una norma accesible, versátil y standard. 
Fue un rotundo éxito. 

La utilidad de tu micro 

Una vez que tienes un micro ordena- 
dor MSX lo importante es sacarle todo el 
rendimiento de que es capaz, porque en 
el área doméstica son únicos. Sabemos 
que el empleo doméstico/profesional de 
un ordenador consiste sobre todo en el 
procesamiento de texto, archivo, cálcu- 
los, etc., es decir todo aquello que esté di- 
rectamente relacionado con cosas de la 
vida cotidiana, incluido los juegos. 

El procesamiento de texto es tal vez el 
más común de los usos, pero aún así son 
ocos los que conocen las inmensas posi- 
ilidades que él tiene. Para empezar se- 
ñalaremos algo tan obvio como la impre- 
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sión de cualquier documento en cual- 
quier idioma que se lo programe. Esto es 
posible porque los MSX tienen un gran 
editor de BASIC. Gracias a él es posible 
listar un programa y pasarlo tanto de arri- 
ba abajo, como de abajo arriba, pasar di- 
rectamente a una constatación particular 
y hasta introducir partes de un listado a 
un artículo sin necesidad de listarlo total- 
mente. 

Otro uso directo y sumamente útil es el 
archivo. Gracias a él se puede tener una 
completísima agenda doméstica, incor- 
porando nombres, direcciones, teléfo- 
nos, profesiones, etc., accediendo de un 
modo fácil con sólo utilizar la función 
SEARCH. 



La empresa estadounidense 
Microsoft se unió a la nipona 
Kabushi Kaisha ASCII para 
desarrollar la norma MSX 
-Microsoft Extended- que 
emplea el potente lenguaje 
BASIC-E. 

También el uso de los programas de 
cálculos, a pesar de su poca difusión, es 
factible. Obviamente este aspecto puede 
ser sorprendente, porque en general los 
fabricantes, hacen este tipo de programa 
pensando en las grandes compañías, 
pero no en el público que tiene aparatos 
en su hogar. De todos modos, los presu- 
puestos familiares a veces son verdadera- 
mente complejos tanto por la diversidad 
de gastos que se ocasionan, como por las 
previsiones que se necesitan para mante- 
ner una economía hogareña sana. Un 
programa de cálculos y el procesador de 
textos son los dos programas básicos que 
necesita el usuario si quiere planificar fi- 
nancieramente su casa. El programa de 
cálculos permite manejar operaciones en 
una hilera completa de cifras al mismo y 
el procesador de textos actúa como tipo 
especializado de base de data almacenan- 
do cifras y fórmulas en lugar de palabras. 



Usar el cassette 

Está claro que el disc drive es mucho 
más potente y más veloz que un cassette, 
pero por ahora resulta algo caro, cosa 
que no durará mucho. De todos modos, 
aunque el proceso de almacenaje en cas- 
sette resulta algo lento es una buena sali- 
da para aquellos que quieren conservar 
sus listados. En este sentido los aparatos 
MSX tienen la ventaja de que el BASIC se 
encuentra en ROM y no en RAM. Esto 
permite que puedas emplear el procesa- 
dor de texto. Así un cartucho ROM pue- 
de ser enchufado en un MSX dejando li- 
bre 32K de RAM. El cartucho se carga 
instantáneamente, pero no así el cassette, 
con el que tienes que esperar que pasen 
todos los datos del listado. Con los 32K 
que te quedan libres puedes almacenar 
unas 5.000 palabras al mismo tiempo, lo 
cual es suficiente para la mayoría de los 
usuarios domésticos. 



El futuro MSX 

Es intención de los fabricantes de los 
microordenadores MSX hacer aparatos 
que «resistan al futuro», partiendo de la 
idea de que lo que es novedoso hoy, ma- 
ñana es chatarra. Esto incluye también el 
sector de los periféricos. El problema ra- 
dica fundamentalmente en la incompati- 
bilidad, por lo que si bien estos aparatos 
tienen momentáneamente alguna limita- 
ción técnica, tienen por otro lado la enor- 
me ventaja de que estos pequeños pro- 
blemas pueden ser superados añadiéndo- 
les nuevos periféricos de cualquier marca 
de la misma norma. 

Esto también facilitará la labor de los 
fabricantes de software y periféricos, que 
tendrán así un mercado más amplio que 
el que tenían ahora condicionado a deter- 
minados modelos de tal o cual marca. 
También se beneficiarán los usuarios que 
no sólo recibirán día a día mayores pres- 
taciones, sino que podrán comunicarse 




El MSX por dentro 




entre ellos con mayor facilidad intercam- 
biándose listados, periféricos, cartuchos, 
etc. Ante este panorama creemos que 
MSX CLUB DE PROGRAMAS puede 
ser un puente único para miles de usua- 
rios de MSX. 



LOS 21 FABRICANTES DE 
MSX 

Japón: Sony, Toshiba, Canon, Ams- 
trad, Brother, Casio, Hitachi, Fujitsu, 
JVC, Mitsubishi, Nec, Panasonic, Sanyo, 
Pioneer, Sharp y Yamaha. 

Hong-Kong: Spectrovideo Int. Ltd. 

Corea: Daewoo, Goldstar, Samsung. 

Holanda: Philips. 



RETRATO TECNICO DE UN 
MSX 

Microprocesador: Z 80 A 
Frecuencia de reloj: 3,58 MHz 
Memoria ROM: 32K (extensible) 
Memoria RAM: 32K (extensible) 
Memoria accesible al MSX-DOS: 64K 
(máximo) 
Memoria RAM vídeo: 16K 
Lenguaje: Basic MSX (Basic-E) y má- 
quina 

Modo de texto 1: 24 líneas x 40 carac- 
teres 

Modo de texto 2: 24 líneas X 32 carac- 
teres 

Modo gráfico: 256 X 192 pixels 



Modo gráfico de baja resolución: 64 X 
48 bl. 

Colores: 16 (8 de fondo y 8 de texto) 
Sprites: 32 formas definibles 
Sonido: 1 sintetizador de 3 canales y 8 
octavas 

Teclado: 73 teclas alfanuméricas y sím- 
bolos gráficos 

Conexión cartuchos: 1 ó 2 conectores 
de 50 contactos 

Conexiones directas: Cassette, vídeo/ 
audio, R.F., Impresora (centronics), joys- 
ticks (2). lectores de diskettes 

Interface cassette: velocidad variable 
1200/2400 baudios 

Conversión de códigos: Hexadecimal, 
Binario y Octal 

LAS ORDENES DEL MSX 

Sistemáticas: 
AUTO: Numeración automática 
CONT: Continúa la ejecución 
DELETE: Supresión de líneas 
LIST: Listado de líneas 
LLITS: Impresión de líneas 
NEW: Supresión del programa 
RENUM: Kenumeración del programa 
RUN: Ejecución del programa 
TRON-TROFF: Trazado de la ejecu- 
ción 

Genéricas: 

CLEAR: Suprime las variables 
DATA: Información del programa 
END: Fin del programa 
INPUT: Entrada del teclado 
LET: Asignación 

LINE INPUT: Entrada de cadena 
LPRINT: Impresión 



LPRINT USING: Impresión en un for- 
mato X 

OUT: Salida para el Z80 
POKE: Acceso a la memoria 
PRINT: Escritura en la pantalla 
PRINT USING: Escritura en formato 
READ: Lectura de información 
REM: Destacar 

RESTORE: Localización de datos 
STOP: Paro provisional 
SWAP: Cambio de variables 
WAIT: Espera 

FUNCIONES GENERICAS 

BASE: Base de cálculo 
BINS: Conversión en binario 
CDBL: Conversión de doble precisión 
CINT: Conversión de enteros 
CSNG: Conversión de precisión sim- 

FIX: Supresión de decimales 

FN: Función del usuario 

FRE: Memoria disponible 

HEXS: Conversión en hexadecimales 

INKEYS: Modo de tablero 

INP: Entrada de Z80 

INPUTS: Espera teclado 

INT: Parte de entero matemático 

LPOS: Posición del cursor impresora 

OCTS: Conversión en octal 

PEEK: Acceso a la memoria (lectura) 

RND: Número aleatorio 

SPC: Avance del cursor 

TAB: Posición del cursor 

TIME: Reloj 

USR: Rutina en lenguaje máquina 
VAL: Conversión de una cadena en nú- 
meros 

VARPTR: Posición de las variables 
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JUEGOS 



á 



Concursos de 
programas 
Listados 
Sorteos de 
cartuchos 
Novedades de 
aparatos 
Bancos de 
prueba 
iniciación al 

BASIC-MSX 



¡SOMOS LOS PRIMEROS! 
LA PRIMERA REVISTA 
DE MSX DE ESPAÑA 




PIDE TU 
SUPER JUEGOS EXTRA MSX 
¡YA ESTA EN TU KIOSCO! 



lite 



Programación 



COMO PROGRAMAR 
UN JUEGO 



Es imposible resistirse a la ten- 
tación. La mayoría de los usua- 
rios de un microordenador, y es- 
pecialmente los de un MSX, por 
la capacidad gráfica y de sonido, 
se ha visto tentada de hacer su 
propio juego. Intentar un lista- 
do no es difícil. Aquí te lo de- 
mostramos. 

En primer lugar tienes que hacerte a 
la idea de que tu primer programa 
de juegos na de ser muy sencillo. 
Es decir que tienes que pensar en algo que 
no sea complicado de llevar a la práctica 
tanto en sus gráficos como en su desarro- 
llo. 

Lo primero que tienes que hacer antes 
de escribir un programa es pensar deteni- 
damente en lo que quieres hacer. Muchos 
expertos en programación se pasan más 
tiempo diseñando el juego, es decir, ha- 
ciendo un plano del mismo que escribién- 
dolo, lo cual es muy lógico, porque de no 
ser así te asustarías ante el primer obs- 
táculo por sencilla que fuese su solución. 

Hay dos preguntas básicas que tienes 
que tener en cuenta: 

1- ¿Qué ha de hacer el programa? 

2- ¿Qué aspecto ha de tener el gráfico? 
Una vez respondidas estas preguntas se 

piensa en los parámetros que tienen que 
ser inicializados antes de pasar a la pro- 
gramación propiamente dicha. Una vez 
sepas lo que quieres que haga el progra- 
ma, debes pensar en cómo planteárselo al 
ordenador. Una herramienta útilísima 
son los diagramas de flujo, que te servirán 
para organizar tus ideas en forma de se- 
cuencias lógicas inteligibles para tu micro. 

Ten presente que cualquier ordenador, 
se limita simplemente a efectuar compara- 
ciones -a gran velocidad, por supuesto- 
entre secuencias de números binarios, 
que son los que utiliza la máquina para al- 
macenar la información. Por lo tanto, 
cuando construyas tu organigrama, pien- 
sa que para todas las condiciones has de 
tener en cuenta que puedan cumplirse o 
no y lo que debe suceder en cualquiera de 
los dos casos; es decir, ¿irá otra línea de 



programa según sea verdadero o falso, o 
bien volverá a la misma? ¿Deberá termi- 
nar el programa así? 



Para ser más claros te lo mostramos en 
el diagrama de flujo sobre la interrogación 
«¿Fumas?». 
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INICIO 



¿quiere 
fumar? 


NO 


FIN 














SI 










¿Tiene 


NO 


PIDE 




¿Le dan? 


NO 


ciga 


rros? 




UNO 








SI 



NO 


PIDE 




¿le dan? 




FUEGO 





SI 




¿esta el filtro 

en el sitio correcto? 



NO 



Ponerlo 
correctamente 



SI 



encender 
cigarro 



¿TIRA 
el cigarro? 



NO 



¿FUMAS? 



SI 



APAGAR 
FUEGO 



¿APAGO el fuego? 



NO 



Seguramente 
se quemó 
los dedos 



SI 



FUMAR 
ASPIRAR 



¿TERMINO 
el ciqarro? 



NO 



El diagrama de flujo que es una 
representación gráfica y concisa de 
una situación dada, con todos los 
pasos del proceso colocados en se- 
cuencia lógica, será siempre el pri- 
mer paso antes de escribir ninguna 
instrucción en Basic. 

A continuación una secuencia 
(no exhaustiva) que pretende simu- 
lar el hecho de encender un cigarri- 
llo, con algunas de las implica- 
ciones lógicas asociadas a este 
proceso. 

Sólo se han tenido en cuenta al- 
gunas posibilidades. Seguro que tú 
puedes ampliar este sencillo orga- 
nigrama. Cuanto más complejo 
sea, cuantas más posibilidades 
contemple, mayor verosimilitud 
tendrá nuestra simulación, más 
complejo, por tanto, será nuestro 





SI 



FIN 



Programas 



REBOTES 



Jugar al billar es 
una cuestión de precisión mate- 
mática. Esta mesa del MSX casi 
puede demostrártelo. Sólo tie- 
nes que usar bien el taco. 




En la parte superior de la pantalla se 
halla una serie de cifras y letras que per- 
mite escoger el lugar donde se desea 
hacer rebotar la bola entre 1 y Z. Una 
vez que se dispara la bola sale lanzada 
hacia arriba y rebota y, eventualmente 
vuelve hacia abajo, rebota y sigue así 
hasta que llega al final. Si se desea que 
la bola vaya primero hacia abajo hay 
que introducir el signo menos. 

Esperemos que te diviertas y que 
amplíes este sencillo programa. No te 
olvides de enviarnos la mejoras. Mu- 
chos estarán contentos de introducirlas 
en sus MSX. 



lia REM * ** REBOTES * * * 

20 CLS:INPUT" TECLEE UN NUMERO ENTERO:" ;F 
3© FOR 1= 1T0 F : Y=RND ( 1 ) :NEXT 
4© COLOR 1,1©:CLS:KEY OFF 

5© PRINT" © 1 23456 789ABCDEFGHI JKLMNOPQRSTUVWX Y Z " 
6© X=1NT(RND(1) *18+2) 
70 Y = I NT ( RND ( 1 ) * 1 8+2 ) 
813 LOCATE», X : PRINT "O" 
9ií L0CATE39,Y :PRINT"0" 

1©© LOCATE©, 23: PRINT "TU GOLPE : " ; :R-Í = INPUT-T ( 1 ) 
11© S=© 
12© T=X 

13© FOR J= 1T0 37 

14© T=T-X/ ( ASC (R*) -ASC ( "©" ) +7* (R* >="A" ) ) 
15© IF T>=220R T<=© THEN 22© 
16© LOCATE J ,T : PRINT "O" 
17© NEXT J 

18© IF ABS(T-Y)<3 THEN PRINT"BRAVQ : " ;S ; "REBOTES" :PLAY"CDE' 
19© PRINT "OTRA PARTIDA (S/N) :"; :R$=INPUT$ ( 1 ) 
2©© IF R*="N" THEN END 
21© GOTO 4© 

22© X=-X 
23© S=S+1 
24© GOTO 17© 
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NUEVE 
POR NUEVE 



Tienes dos opciones. Llegar 
primero o llegar último a la 
meta del 9.9. Todo depende de 
lo que convengas con tu compa- 
ñero de juegos. 





msA 



vvvv 




■■■■-■■■■■■■■■-¿^-■■■■■■■■■■■■■■■w 



En la pantalla se dispone de una pa- 
rrilla cuadrada de 10 casillas por 10. 
Fuera de la diagonal hay una bol ita que 
cada jugador desplazará por turno mo- 
viéndola solamente en tres direcciones: 
derecha, diagonal o hacia abajo. 

El juego comienza cuando se exhibe 
el terreno de juego y la posición de sali- 
da. Después aparece jugador 1 y la pre- 
gunta DIRECCION a la que hay que 
contestar tecleando 1,2 ó 3. 

Elj uego termina cuando uno de los 
jugadores llega a la casilla 9.9. 

Esperamos que te diviertas y que 
una vez que lo hayas practicado lo sufi- 
ciente te veas con ganas de introducir 
las mejoras, que nosotros como mu- 
chos lectores estaremos 
nocer. 



10 REM***EL JUEGO DE 9-9*** 
15 REM***MSX — CLUB*** 

20 CLS : INPUT" TECLEE UN NUMERO ENTERO:" ;F 

30 FOR 1= 1T0 F : Y=RND ( 1 ) :NEXT 

m COLOR 2 ,1 :CLS 

40 X=3*INT (RND( 1 ) *5)+5 

50 Y=INT(RND(1) *5) 

60 IF 3*Y+5=X THEN 50 

70 CLS 

30 PR1NT" 1 2 3 4 5 6 7 8 9" 

90 FOR 1=0 TO 9 

100 PRINT :PRINT I ;"■ " 

110 NEXT I 
120 H=l 

130 LOCATEX ,2*Y+2 :PRINT"<" 

140 1F X=32 AND Y=9 THEN PLA Y "CGE" :END 

150 LOCATE0,21 : PR 1 NT " JUGADOR " ;ri; : INPUT " -DIRECCION ( 1 ,2,3) " ;DÍ 
160 D=VAL(D*) 

170 ON D GOSUB 1000,2000,3000 
180 H--2-ABS (H- 1 ) 
190 GOTO 130 

J000 X = X+3 
1010 RETURN 
2000 GOSUB 1000 
3000 Y=Y+1 
3010 RETURN 
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MASTERMIND 




Esta es una propuesta de jue- 
go para agilizar la mente y la ca- 
pacidad deductiva y de cálculo. 
Es muy entretenido y puede 
convertirse en apasionante. 




Aunque se llame Mastermind en rea- 
lidad se trata de una variante muy inte- 
resante de este popular juego. Se trata 
de jugar contra el ordenador o contra 
otro jugador, ya que tienes las dos op- 
ciones. El juego -cuyo listado contiene 
las instrucciones completas-, consiste 
en acertar un número y su posición. 
Puedes introducir un mínimo de tres 
números y tienes un máximo de once 
oportunidades para acertar. 

Una vez que se introducen los núme- 
ro sólo tienes que pulsar RETURN. 

Las variantes de este juego, ya sea en 
gráficos, sonido, etc., dependen de ti. 
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1 REM 

2 REM créditos 

3 REM 

4 SCREEN 0,12,1 : COLOR 15,1 :KE Y OFF:CLS 

5 LOCATE 0,l,0sPRINT STRING* (37 ,?<H2E) 

6 LOCATE 0,18:PRINT STRINGS (37 ,&H2E> 

7 LOCATE 12,5:PRINT "MASTER-M I ND" 

8 LOCATE ¡5 ,,10 SPRINT "Escrito por: JOSE ESPInEIRA" 

9 FOR W=l TO B88:NEXT 
I© LOCATE 16,22 sPRINT "MSX" 

11 LOCATE 6,13:PRINT "Piedras Bl ancas-ASTURI AS" 

12 LOCATE 14,15:PRINT "25-3-85" 

13 FOR W=10 TO 1244:NEXT 
IF X THEN 15 ELSE 17 
LOCATE 2,20:PRINT "jugador 1=" ;P1 

16 LOCATE 21,20:PRINT "jugador 2="sP2sEND 

17 LOCATE 8, 28 SPRINT "—Pulsa una tecla—" 
13 T$=INKEY*sIF T*="" THEN 18 

19 GOSUB 214 

20 REM 

21 REM preguntas 

22 REM 

22 CLEAR :WIDTH 39:X=1:0N ERROR GOTO 203 : GOSUB 117 

24 PLAY "16cdecdel0cdecdel2cdecdecdecdec" 

25 LOCATE 0,8sLINE INPUT "NECESITAS INSTRUC IONES (S/N) ->" 

26 IF 1*="" THEN 25 

37 IF I*«"s" OR I*="S" THEN 217 

28 LOCATE 0,8:PRINT "ELIGE LA OPCION QUE DESEES (1/2)" 

29 LOCATE 5,12:PRINT "1 -CONTRA OTRO JUGADOR" 

30 LOCATE 5, 14 SPRINT "2-CONTRA EL ORDENADOR" 

31 LOCATE. v 32, 8: INPUT OP 

32 IF QPií OR OP>2 THEN BEEP sGOTO 31 

33 LOCATE 0,8sPRINT "SIGUE ELIGIENDO , SINO TE IMPORTA " 

34 LOCATE 5,12sPRINT "CUANTOS NUMEROS- (3 A 6)— >" 

35 LOCATE 5,14sPRINT "CUANTOS INTENTOS (4 A 11)— V 

36 LOCATE 32, 12 s INPUT CAsPl=0 

37 LOCATE 32, 14 s INPUT INsP2=0:CH=0 

38 IF CAO OR CA>6 THEN BEEP : GOTO 41 

39 IF IN<4 OR IN>11 THEN BEEP: GOTO 41 

40 GOTO 43 

41 LOCATE 32,12:PRINT STRING* (5 ,?<H20> sLOCATE 32,14:PRINT 

42 GOTO 36 

43 LOCATE 9, 18 SPRINT "NUMEROS" ;CA INTENTOS" ; IN 

44 LOCATE 18, 18 SPRINT CHR*(42) 

45 GOSUB 207 

46 IF Q$="n" OR Q*="N" THEN 41 

47 ON OP GOTO 48,126 

48 GOSUB 117 

49 PLAY "13-fdbe-f aSdgbad" 

50 LOCATE l,8sLINE INPUT "NOMBRE JUGADOR 1 >";J1$ 

51 IF Jl*="" THEN 50 

52 LOCATE l,10sLINE INPUT "NOMBRE JUGADOR 2 >" ;J2í 

52 IF J2*="" THEN 52 

54 GOSUB 117 

55 IF OP=l AND CH>5 THEN SWAP J1*,J2* ' 

56 FOR W=l TO 9 sPLAY " I20b " sNEXT 

57 LOCATE 1,10:PRINT "SOLO EL JUGADOR 1 > " ; jl$ 

58 LOCATE l,14sLINE INPUT" INTRODUCE EL NUMERO—;- " ;N* 

59 L=LEN (N$) sIF LOCA THEN BEEP sGOTO 60 ELSE 62 

60 LOCATE 0,14sPRINT STR I NG$ < 37 , & H20 ) s LOCATE ll,14sPRINT 

61 FOR W=10 TO 1150:NEXT sGOTO 58 

62 R=l s GOSUB 197 

63 LOCATE 6,18sPRINT "NUMERO INTRODUCIDO: " ;NÍ 

64 GOSUB 207 

65 IF □^"n" OR Q*="N" THEN 66 ELSE 67 

66 LOCATE 21,14:PRINT STRING$ ( 10 ,&H20) sGOTO 58 

67 GOSUB 117 

68 FOR W=l TO 9sPLAY "120a"sNEXT 

69 IF OF-2 THEN J2*="TU" 
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2 > " ;J2* 



l,8sPRINT "SÜLÜ EL JUGADOR 
12, 12 sPRINT " f ADELANTE ! " 
14,13 SPRINT "SUERTE" 
AND P1>P2 THEN LOCATE 1 , 20 sPR I NT "RECUERDA QUE VAS PERDIENDO POR";Pl;" 



75 
76 
77 
78 
79 
Si? 
Si 
82 
83 
84 
35 
86 
87 
38 
89 
90 
91 
92 
93 
94 



alia 



70 LOCATE 

71 LOCATE 

72 LOCATE 

73 IF OP= 

A" ;P2 

74 FOR W=UZi TO 1333: NEXT 
REM 

REM presentación 

REM 

GOSUB 117:S=8:C=iZi:IT=IN 

FOR W=0 TO 38:L0CATE W, 5 sPRINT CHR* ( 1 ) ;CHR* ( Í,H57 ) 
LOCATE W,7:PRINT CHR* ( 1 ) ;CHR* (S.H57) 
LOCATE W , 1 9 : PR I NT CHR* ( 1 ) ; CHR «■ i &H57 ) 
LOCATE I* ,20 sPRINT CHR* ( 1 ) ;CHR* (S/.H57) :NEXT 
FOR W=8 TO 18:L0CATE 19,W:PRINT CHR* ( 1 ) ;CHR* (&H56) 
1 8 , W : PR I NT CHR* ( 1 ) ; CHR* ( !<H56 ) 
CHR*(S<HFA> 
CHR*(S<HFA) :NEXT 
"M - H" 
"M - H" 
"JUG.1=" ;P1 



LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 



i®, W SPRINT 
30, W SPRINT 
12,6 sPRINT 
32, 6 SPRINT 
1 ,2sPRINT 



"120gf edc" iLINE INPUT "INTRODUCE EL NUM 



LOCATE 28 , 2 : PR I NT " JUG . 2= " ; P2 

REM 

REM control programa 

REM 

FOR W=10 TO 550 sNEXT sLOCATE 9,21:PLAY 
ERO " ;A* 

95 LOCATE 1 ,21 sPRINT STRING* (38 ,?<H20) 

96 IF A*="" THEN 94 

97 LO=LEN <A*)sIF LO OCA THEN BEEP sGOTO 94 

98 LOCATE C+4,S sPRINT A* 

99 LOCATE C,S sPRINT IT 

100 IF ÍT>9 THEN 102 

101 LOCATE C+2,S sPRINT CHR* (45) 

102 FOR 1=1 T O Ó:A(I)=0:NEXT:M=0:H=0 

103 FOR 1=1 TO CA 

104 1FVAL(MID*(A*,I ,1) )=VAL(MID*(N*,I ,1) ) THEN A U ) =VAL (MID* <N* , I , 1) ) :M=Mn t 0ÚSU 
B 142 

105 NEXT I 

106 IF M=CA THEN 152 

107 FOR 1 = 1 TO CA : FOR W=l TO CA 

108 IF VAL(MID*(A*,I ,1) )=A(W) THEN 111 

109 IF VAL(MID*(A*,I-,1) > =VAL ( M I D* ( N* , W , 1 ) ) THEN H=H+1 : GOSUB 147 

110 NEXT W 

111 NEXT I sS=S+2sIT=IT-l sIF S=20 THEN SWAP C,SsS=8 

112 IF IT=-1 THEN GOTO 157 

1 13 A*="" :GOTO 94 

114 REM 

115 REM cabecera 

116 REM 

117 CLSsFOR W=0 TO 40:LOCATE W,0:PRINT CHR* ( 1 ) ;CHR* (&H57) : NEXT 

118 FOR.W=40 TO STEP-1 : LOCATE W,l sPRINT CHR* ( 1 ) ;CHR* (&H37 1 sNEXT 

119 LOCATE 13, 2 sPRINT "MASTER-M1ND" 

120 FOR W=0 TO 40 sLOCATE W, 3 sPRINT CHR* ( 1 ) ;CHR* (?<H57) sNEXI 

121 FOR W=40 TO STEP-1 sLOCATE W,4:PRINI CHR* U ) ;CHR* CÍ/.H57 NEXT 

122 RETURN 

123 REM 

124 REM numero al arar 

125 REM 

126 LOCATE 0,20 SPRINT STR I NG* ( 39 , &H20 > 

127 LOCATE 1 ,21 sPRINT "ESPERA UN MOMENTO , ESTOY PENSANDO , AHORA" 

128 LOCATE 3, 22 sPRINT STRING* (35 ,&H20) 

129 R=0 

130 IF CA=3 THEN CN=1000 
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131 

132 

133 

134 

135 

136 

137 

i 33 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

io2 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

133 

184 

185 

186 

187 

188 

189 

190 

191 

» * i— 

193 
194 
195 
196 
197 



IF CA=4 THEN CN=10000 

IF CA=5 THEN CN= 100000! 

IF CA=6 THEN CN= 1000000** 

A=INT (RND (-TIME) *CN) 

M*=STRí (A) :Ní=MID$ (M$ ,2 ,CA+2) 

BÜSUB 197 

GOTO 67 

GOSUB 117 

REM 

REM muertos 

REM 

IF M>CA THEN M=CA 

LOCATE C-f 11 ,S:PRINT MzPLAY " 1 1 0b " rRETURN 
REM 

REM heridos 

REM 

IF H>CÁ THEN H=CA 

LOCATE C+15,S:PRINT H : PLAY " 15b " rRETURN 
REM 

REM acierto 

REM 

LOCATE 2,21:PRINT "BIEN , ACERTASTE ESE ERA: 
PLAY "122gf edcab" :GOTO 161 
REM 

REM — -fallo — 
REM 

LOCATE 2,21rPRINT "PERDISTE ,EL NUMERO «RA : 
REM 

REM opciones 

REM 

FOR W=26+CA TO 38:LOCATE W,21:PRINT CHR* (32) rNEXl 
IF 0P=^2 AND M<CA THEN Pl=Pl + l:GOTO 169 
IF 0P=2 AND M=CA THEN 166 
IF X/2-INT(X/2)=0 THEN 165 ELSE 167 
IF M<CA THEN P2=P2-1 :GOTO 169 
169 

P1=P1-1 :GOTO 169 



* vi ■ — m r-— ■ 

4 




";N* 



;N*:PLAY "12cde-fg" 



P2=P2+1 :GOTO 
IF M-:CA THEN 
PJ=P1+1 
IF Pi .1 THEN 
IF P2::i THEN 



P1=0 

P2=0 

LOCATE 7,2:PRINT Pl rLOCATE 
FOR W= 10 TO 3333:NEXT 
CH=10 :X = X + 1 
LOCATE 1,21:PRINT STRÍNG-Í (36 ,?<H20) 
PLAY "115df adf adf a" 

LOCATE 0,20:PRINT "ELIGE LA OPOCION QUE MAS DESEES :( 1 -2-3 ) " 

LOCATE 4,21 :PRINT "-1-" :LOCATE 16,21 :PRINT "-2-" :LOCATE 27,21 :PR1NT "-3-- 
LOCATE 3,22:PRINT "SEGUIR** VOLVER AL MENU**TERMINAR" ; 
LINE INPUT R$ 

IF VAKRÍXI OR VAL(R*)>3 THEN 179 

ON VAL (R*) GOTO 192,193,185 

REM 

REM despedida 

REM 

GOSUB 117:L0CATE 10,10:PRINT STRING* ( 16 ,?<H2D) 

LOCATE 10,12:PRINT "DE ACUERDO , ADIOS" 

LOCATE 10,14:PRINT STRINGí ( 16 ,&H2D) : X=5 

PLAY "llac" 

FOR W=10 TO 2888:NEXT 

GOSUB 214 

GOTO 4 



54 



TF 0P=2 THEN 126 ELSE 
GOSUB 1 1 V rGGiü 28 
REM 

REM — filtro — 
REM 

FOR 1=1 TO CA+l:FOR W=l TO CA 
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198 IF I=W THEN 200 

199 IF MIDí <N*,i , 1)=MID* (Ní,W,l) ÜR MID* (N* , W , 1 ) as'»0M THEN 20$ 

200 NEXT W,I 

201 IF R=iZi THEN 137 ELSE 63 

202 IF R'=l THEN 66 ELSE 134 

203 RUN 193 

204 REM 

2$ 5 REM pregunta 

206 REM 

207 LOCATE 0,16:RRINT STRINGí (39 ,&H2D) 

208 LOCATE 0,19:PRINT STRING* (39 ,?<H2D) 

209 LOCATE 6,21:L1NE INPUT " ESTAS DE ACUERDO? (S/N) -.>" ;Ü* 

210 RETURN 

211 REM 

212 REM — subida pantalla — 

213 REM 

214 PLAY "116cde-fgab" 

215 FOR W=22 TO 40 :PRINT :NEXT 

216 RETURN 

217 REM 

218 REM instruc iones 



220 GOSUB 117 

221 PRIN1 :PRINT"SE TRATA DE ADIVINAR UN NUMERO, SI ADIVINAS EL NUMERO Y El LUGAR 
CORRECTO ES UN MUERTO, SI ACIERTAS EL NUMERO PERO NO EL LUGAR ES UN HERIDO. EJEMP 
LO: EL NUMERO A ACERTAR ES EL <1234>*! 

222 PR I NT : PR I NT : PR I NT " Y TU INTRODUCES EL <2136> ESTO TE DARA : 1 -MUERTO ( EL 3), Y 2- 
HERIDOS ( 1 Y 2) .EL 6 AL NO ESTAR NO CUENTA .PUEDES JUGAR CON OTRA PERSONA O CO EL 
ORDENADOR" 

223 LOCATE 10,21 :PRINT "PULSA UNA TECLA" 

224 Q*=INKEY*:IF THEN 224 

225 GOSUB 117 

226 PRINT :PRI NT :PRI NT "PUEDES DETERMINAR LA CANTIDAD DE NUMEROS A «DIVINAR Y LOS 
INTENTOS PARA ACERTARLO. SI JUEGAS CONTRA OTRA PERSONA LO HAREIS POR TURNOS" 

227 PRINT : PRINT "AL INTRODUCIR LOS NUMEROS NO REPITAS EL MISMO DOS VECES NI PONG 
AS NINGUN .EJEMPLO :EL 1148 NO VALE PUES SE REPITE EL 1 .EL 4306 TAMPOCO VALE PUE 
S HAY UN 0" 

228 PRINT :PRINT "PARA INTRODUCIR LOS DATOS TECLEALOS Y DESPUES PULSA < RE TUR 
N>" 

229 LOCATE 5 ,201 PRINT "MEMORIA OCUPADA" ;28815-FRE (0) ; "BITS" 

230 LOCATE 10,22:PRINT "PULSA UNA TECLA" 

231 Qí=INKEY* :IF Qí="" THEN 231 

232 GOSUB 117:G0T0 2b 



219 REM 
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CARRERAS 
DE CABALLOS 



Estamos en el Hipódromo 
MSX y en él varios jugadores 
pueden apostar por el caballo 
más rápido. Una carrera de ca- 
ballos trepidante que te hará 
saltar en la tribuna. 



íF 



10 REM* * * CARRERA DE CABALLOS*** 
20 CLS : INPUT" TECLEE UN NUMERG ENTERO: 

30 FOR J= 1T0 F:Y=RND(1) :NEXT 

413 DATAiZi,2,3,63,125,254,lliZi,170:Aí="" :F0R J= 1T0 8-.READ A :A*=Af+CHR* < A> :NEXT 
50 SCREEN 1,1: COLOR 1 , 15 ,2 :KEY OFF : CLS 

INPUT"NUMER0 DE CABALLOS : " ;N : IF N>9 THEN 50 
SCREEN2:LINE(30,20)-(35,190) ,1 , BF :LINE (0,0)- (200 ,20) ,2,B 
FOR C=l TO 5 
A=INT (RND ( 1 ) *200) 
B=INT (RND ( 1 ) *20) 
C=RND( 1 ) *5 

CIRCLECA,B) ,C,1 , , ,1 .3:NEXT 
FOR 1= 1T0 N :SPRITE* ( I ) =Aí :NEXT 
A =" " :P=^0 :A=0 :T=1 :K=0 
J=T 

Aí=A*+"0" : I=J 
GOTO 150 
FOR 1= 1T0 N 

IF MIDÍ <A*,I ,1)="K" THEN 180 

B*=CHRÍ (ASCíMÍD* (A*,I ,1) ) + INT (RND ( 1 ) *4+ 1 ) ) 
MI Dí (A*,I , 1)=B* 
IF Bí>="K" THEN GOSUB 250 
170 PUT SPRITE I , <8*(ASC(MID*(A*,I ,1) )-46> ,16*1+20) ,1+4,1 
180 PLA í "L64N80" :FOR D= 1T0 600:NEXT 

J=J+1:1F J<=N THEN 100 ELSEK- 1 



60 
64 
65 
66 
67 
68 
6? 
70 
80 
90 

100 

110 

120 
130 
140 
150 
160 



190 

200 

210 

220 
230 
240 
250 
260 
270 
280 
290 



IF K=0 
NEX1 I 
P=P+T 
T=0 
IF A < N 



THEN 



120 



THEN 
PLA Y "CEG" :EN["i 
l11D*(A:t,I ,1>="K" 
LOCATE 0,2*I+3:PRINT P 
T=l :PLAY"CCC" 
A=A+T 
RETURN 




Estamos ante un programa que se 
basa en los números aleatorios y por lo 
tanto el resultado de cada carrera es 
casi puro azar. Para jugar sólo tienes 
que introducir el número de caballos 
que quieras para la carrera entre 1 y 9 y 
seguidamente hacer las apuestas por el 
ganador. 

El ordenador hace avanzar los caba- 
llos uno a uno y la clasificación se anun- 
cia a medida que llegan. 

Como veis ésta es la base para un 
programa mucho más amplio y com- 
pleto. Si crees que puedes configurar 
ese programa, mándalo para que todos 
lo disfrutemos. 
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LA RULE tC 




¡Lista este programa y descu- 
brirás el azaroso mundo del ca- 
sino! ¡En tu propia casa, en la 
pantalla de tu televisor tendrás 
una ruleta y apostar! 



Este es un juego ideal para los que 

gustan divertirse con el azar. La panta- 
a reproduce el juego de la ruleta con 
casillas numeradas del 1 al 36, más tres 
casillas suplementarias que represen- 
tan a Rojos (R), Negros (N) v Blanca. 
Una vez que has listado el programa 
al que puedes añadirles las variantes 
que quieras—, introduces un número 
cualquiera y la bola se desplaza por lo 
menos una vez por cada casilla y se de- 
tiene en la segunda vuelta. 

Lo interesante de este juego es que te 
puedes reunir con tus amigos y apostar 
o al menos tratar de adivinar el número 
que saldrá en cada ocasión. 



10 REM** «RULETA*** 

REM**MSX-CLUB*# 
20 CLS-.INPUT" TECLEE UN NUMERO ENTERO:" ;F 
30 FOR 1=1 TO F:Y= RND(1):NEXT 
40 COLORI ,15 :KE Y OFFrCLS 
S0 FOR K= 1T0 4 
60 FOR 1= 1T0 9 
70 3=1+1 

80 PR1NT TAB(4*I-2)(S AND K=1)+<S+18 AND K=2)+(3-i AND K»3í+iS*17 ANDK=4); 
90 NEXT I 

100 PRINT :PRINT :PRINT 

110 NEXT K 

120 LOCATE0,2:PRINT"R" : LOCATE ,6 :PRINT'W : LOCATE© , 10 :PRINT"N" 
130 FOR K= 1T0 4 
140 FOR 1= 1T0 10 

l$m 1F 1 = 10 AND K<4 THEN LOCATE0 ,4*K-1 :GOTO 170 
160 IF K*I<>40 THEN L0CATE4* 1-1 ,4*K-3 ELSE GOTO 200 
170 X = X-1 :PLAY"L32A" :PRINT ; 
180 FOR J= 1T0 35 :NEXT J 

190 IF XOl THEN LOCATE POS ( ) - 1 , CSRL I N : PR 1 NT " '" ELSE GOTO 240 

2O0 NEXT I 

210 NEXT K 

220 X=INT(RND(1) *38) 

230 GOTO 120 

240 PLAY "CEG" :LOCATE0 ,20 : PRINT "OTRA PARTIDA (S/N) :"; :R*=INPUT$ ( 1 ) -.PRINT R$ 

250 IF Rí="N" THEN END 
260 GOTO 40 
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Un singular gusanito empieza 
a elevarse y tu misión es conse- 
guir que el Comegusanitos se lo 
zampe totalmente. Es un juego 
de gran habilidad. 



Una vez que has listado el programa, 
el cual no presenta mavores dificulta- 
des, inicias el juego dando la orden 
RUN. Casi inmediatamente aparece en 
pantalla un gusanito muy vaporoso em- 
pieza a elevarse, mientras en el otro ex- 
tremo de la pantalla se halla del Come- 
gusanitos. Con las teclas del cursor tie- 
nes que conducirlo hasta quedar por 
encima del gusanito para que inicie su 
festín. Pero esto no es tan fácil como 
parece, porque el gusanito se mueve de 
un lado a otro y para que el Comegusa- 
nitos pueda tragárselo tiene que estar 
siempre sobre él. Al llegar a la parte in- 
ferior de la pantalla antes de que el gu- 
sanito llegue a la parte superior, el Co- 
megusanitos gana y en tu TV aparece 
¡Bravo! o ¡Perdido!. 

Como será costumbre en los listados 
que demos, tú podráas hacer variantes 
ampliando o mejorando lo publicado. 
Para ello crearemos una sección de in- 
tercambio. 



SS 

30 
4* 

50 

so 

70 
80 
90 

100 

1 1 

120 
130 
140 

150 
J 60 
170 
180 
190 

200 

210 
220 
230 
240 
250 
260 
270 



REM***GUSANO*** 

CLS:INPUT" TECLEE UN NUMERO ENTERO : " ;F 
FOR I = 1T0 F:Y=RND(1) :NEXT 
SCREEN0 :WIDTH40 

R»4k-»%.« 

S=0:X=24:Y=INT<RND(1) #15+7) 
U=0 :V=15 

COLOR 13,1,7:KEY 0FF:CLS 
LOCATEY , X :PRINT" * " 

Y = Y-(RND<1) < .5 AND Y<24) +• (RND ( 1 ) < .5 AND Y>0) 
T»l 
X = X-T 

IF X=0 THEN 260 
LOC ATE V , U : PR I NT R* 

IF TO0 THEN FOR I=1TO400 : A*= I NKE Y* : IF Ai O'"" THEN 170 
LF TO0 THEN NEXT I 
LÜCATEV ,U :PRINT" " 

Oj^^gj^HR* v 3 1 ) AND T=l ANDX<24) 

V=V- (A*=CHR* (28) AND V <24 ) + ( A*=CHR-£ (29) ANDV >0) 
C=VPEEK(40*U+V) 
IF C::>42 THEN 90 
T=0:S=S+1 
IF y «22 THEN 140 

IF T=0 THEN PRINT" ! ! BRAVO ! ! " :PLAY "CEG" :GOTO 270 
PRINT"SE ACABO EL JUEGO" :PLAY "CCC" 
PRINT : PRINT "RECORD ;S 
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Programas 



CARRERA 
DE COCHES 



La pantalla de tu ordenador 
MSX puede convertirse en un 
difícil circuito de Fórmula 1. 
Coches lanzados a gran veloci- 
dad compiten contigo en una 
gran carrera. 




«Carrera de coches» es una variante 
mejorada de «Indianápolis» publicado 
en la revista SUPER JUEGOS EXTRA 
MSX. Aquí tienes un tiempo máximo 
de cuatro minutos de carrera en el que 
tienes que conseguir la mayor veloci- 
dad posible. Al Final el ordenador te 
dará en pantalla la velocidad promedio 
que has obtenido y el número de cho- 
ques que has provocado. 

Los movimientos de izquierda a de- 
recha y viceversa se hacen con los cur- 
sores horizontales. La tecla cursora su- 
perior te sirve para aumentar la veloci- 
dad y la inferior para reducirla. 

Bueno campeón, ponte el casco y el 
circuito es tuyo. ¡Ah, si consigues me- 
jorar el listado, manda las variantes así 
corremos nosotros y nuestros lectores. 



•Vi \ 
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1 GOTO 3000 

4 CÜLÜR 1,15,7 

5 W=240 :TIME=0 :R=5 :Q=0 :G=0 :P=0 :ME=0 :ES=iZi :CH=0 

6 X2=126:Y2=90:V2=0:C2=3 

7 X1=104:Y1=60:V1=0:C1=2 

8 X=104:Y=180:V=0 

9 X3=104 :Y3=120:V3=0:C3=4 
1CI X4=126 : Y4=150 :V4=0 :C4=5 
100 REM #** BUCLE PRINCIPAL 
13i3 S=INT(7500/ (V+l) ) :IF S>255THEN S=255 
140 SGUND 0,S:SOUND 1 ,1 
¿50 SOUND 2,S:S0UND 3,2 
160 SOUND 4,0: SOUND 5,5 
170 SOUND 6,15: SOUND 7,56 
180 SOUND 8,15:S0UND 9,15:S0UND 10,15 
20Ü PUT SPRITE 1,<X,Y),15,0 
210 PUT SPRITE 2, (XI ,Y1) ,C1 ,0 
220 PUT SPRITE 3 , ( X2 , Y2) ,C2 ,0 
230 PUT SPRITE 4 , ( X3 , Y3) ,C3 ,0 
740 PUT SPRITE 5 , ( X4 , Y4 ) ,C4 ,0 
380 Q=Q+1 

390 LINE(23,5)-(65,20) ,7,BF 
400 LINE(23,65)-(65,80) ,8,BF 
410 LINE (23 , 125) - (65 , 1 40) , 1 1 ,BF 
420 LINE(183,5)-(225,20) ,14,BF 
430 LINE (183, 65) -(225, 80) ,3,BF 
440 LINE(183,125)-(225,140) ,10,BF 
450 PSET(180,10) ,12:PRINT#1 ,USING"#####" ;V; 
460 P=P+V\10 

470 PSET (20M,ia> ,12:PRINT#1 ,USING"###tt##" ;P; 
480 NE= (ME* (Q-l ) +V) /□ 

490 PSET (180,70) ,12:PRINT#1 , US I NS "##### 11 ;ME ; 
500 T=lg-TIME\50 

510 PSET (20, 70) ,12:PRINT#1 ,USING"#####" ;T; 
520 ES=ME* .3* (TIMEN50) 

530 PSET (180, 130) ,12:PRINT#1 ,USI NG" ###### " ;ES; 

540 PSET (20, 130) ,12:PRINT#1 ,USING"#####" ;CH; 

600 IF T<=0 THEN 5000 

700 IF P>2500 AND G=0 THEN W=280 

710 IF P>2500 THEN G=l 

IF p>4000 AND G=l THEN W=320 
IF P>4000 THEN G=2 
IF P>5500 AND G=2 THEN W=360 
IF P>5500 THEN G=3 
IF P.7000 AND 6=3 THEN W=400 
IF P>7000 THEN G=4 
800 AC=25+V\20 :FR=V\ 10 :M=INT ( V\ 100) +1 
900 F=STICK(D) :F=F + 1 

905 ON F GOTO 1500,910,920,930,940,950,960,970,980 

910 V=V+AC:GOTO 1500 

920 X=X+1+M:V=V+AC-5:G0TÜ 1500 

930 X=X+1+M:G0T0 1500 

940 X=X+1+M:V=V-FR-5:G0T0 1500 

950 V=V-FR:GOTO 1500 

960 X=X-1-M:V=V-FR-5:G0T0 1500 

970 X=X-1-M:G0TG 1500 

980 X=X-l-n:V=V+AC-5 

1500 Y=180-V\3:Y1=Y1-(V1-V) \L : Y2=Y2- ( V2-V) \L : Y3= Y3- < V3-V > \L : 

1510 B 1 =RND ( 1 ) *20+10 :B2=RND(1) * 1 5+ 1 3 : B3=RND ( 1 ) «20+8 :B4=RND( 1 

1520 V1=V1+B1 :V2=V2+B2 :V3=V3+B3 :V4=V4+B4 :V=V-R 

1620 IF Vl>=330 THEN VI =320 

1630 IF V2>=270 THEN V2=250 

1632 IF V3>=320 THEN V3=310 

1634 IF V4>=260 THEN V4=240 

1636 IF V>320 AND V<390 THEN V=V-B5 

1640 IF V>=390 THEN V=385 

1650 IF V<0 THEN V=0 




720 
730 
740 
750 
760 
770 



Y4=Y4- 
) *25+5 



(V4- 
:B5= 



V) \L 

RND( 1 ) «10 
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Programas 







2) +2 
1670 
1672 
1674 
1676 
S68Ó 
1632 
1684 
1686 
1700 
1702 
1704 
1 706 
131321 
181(3 
1820 
18313 
I84i3 
18513 
18613 
1870 
1880 

1900 

7000 
j010 

2020 
2030 
2040 

2050 

2060 
2070 

2100 

2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 



A5-INT (RND ( 1 ) * 12) +2 :A6=INT (RND ( 1 ) * 12) +2 :A7=INT (RND ( 1 ) *12) +2 :A8=INT (RND U ) * 1 



OR 
□R 
□R 
□R 
THEN 
THEN 
THEN 
THEN 



IF Yl>=190 
IF Y2>=190 
IF Y3>=190 
IF Y4>=190 
IF Yl>=190 
IF Y2>=190 
IF Y3>=Í90 
IF Y4>=190 
IF Yl<=-17 THEN 
IF Y2<=-17 THEN 
IF Y3<=-17 THEN 
IF Y4<=-17 THEN 
3PRITE CN 
IF Y3-YK50 
IF Y3-YK50 
IF Yl-Y3<50 
IF Yl-Y3<50 
IF Y4-Y2<50 
IF Y4-Y2<35 
IF Y2-Y4<50 
IF Y2-Y4<35 
IF X<99 OR X>131 
REM ## EXPLOSION 



Yl<=-15 
Y2<=-15 
Y3<=-15 
Y4<=-15 
Yl=-16 
Y2=-16 
Y3=-16 
Y4=-16 
Yl=191 
Y2=191 
Y3=191 
Y4=191 



THEN V3=V1 
AND Y3-Y1>0 
THEN V1=V3 
AND Yl-Y3>0 
THEN V4=V2 
AND Y4-Y2>0 
THEN V2=V4 
AND Y2-Y4>0 



THEN 
THEN 
THEN 
THEN 



C1=A5 
C2=A6 
C3=A7 
C4=A8 



AND Y3>-16 AND Yl>-16 THEN 



1+3Í 



AND Yl>-16 AND Y3>-16 THEN Yl=Y3+35 



AND Y2>-16 AND Y4>-16 THEN Y 4= Y 2+30 



AND 



THEN 



Y4>-16 AND Y2>-16 THEN Y 2= Y 4+30 
GOSUB 2000 ELSE GOTO 100 



SPRITE OFF 
CH=CH+1 

IF CH=1 THEN P=P-100 
IF CH=2 THEN P=P-200 
IF CH=3 THEN F-P-300 

IF CH=4 THEN P=P-400 

IF CH>=5 THEN P=P-500 

PUT SPRITE 0, (X ,Y) ,10,1 

SOUND 0,0:SOUND 1 ,5- 

SOUND 2,0: SOUND 3,13 

SOUND 4, 255: SOUND 5,15 

SOUND 6, 30: SOUND 7,0 

SOUND 8,16:S0UND 9,16:S0UND 10,16 

SOUND U,0:SOUND 12,5:S0UND 13,0 

FOR Z=l TO 45:NEXT Z 

SOUND 12, 56: SOUND 13,0 

FOR Z=l TO 10 

1 , (X ,Y) ,8,0:PUT SPRITE 0,(X,Y),10,1 
0, (X ,209) :PUT SPRITE 1,(X,209) 



PUT 



SPRITE 
2220* PUT SPRITE 
2240 NEXT Z 

FOR A=l TO 



2250 

3000 

3020 



30: 



1000:NEXT A :RETURN 6 
REM #* PANTALLA GRAFICA 

COLORIS , 1 ,7:SCREEN 2 :CLEAR300 :PLAY "T255S8M8400V15" 
AL=RND ( 1 ) *70 :FOR A=0 TO AL :AR=RND (1 ) :NEXT A 
3030 A*= " S8C 1 4U4NR6U4R6D2ND6S 1 2C7BR4D8R6U8S 1 6C8BR3BD2R3ND8R3S20C i 0BR3BD2NR6DSR6U 
8S24C13BR3BD2NR6D4R6D4L6" 

3040 DRAW"BM50 ,55XA* ;BM49 ,54XA* ;BM48 ,53XA$ ; " 
3050 A*= " M+4 , -4M-2 , +6M-2 , -5M+5 , +2M-5 , + 1 " 
3060 FOR A=l TO 5 
3070 FOR B=0 TO A'-3+5 

X1=INT(RND<1)*245) 
X2=INT(RND(1) *182) 
X3=l 1 .125-A12 

DRAW"S=X3;BM=X1 ; , = X2 ;C15XA$ ; " 
NEXT B:NEXT A 

B*= " S4C 1 3U 1 0R5D5NL5D5BR5C 1 0NU 1 0R5BR 1 0C4L5U 1 0R5D 1 0BR5C8U 1 0N+5 , + 1 0U i 0BR5C3NP & 
D5R5D5L5BE 1 0C5D 1 0R5U 1 0L5 " 

3140 DRAWBM20 , 180XB* ;BM190 ,20XBí ;BN19 , 179XB* ;BM189 , 19XB$ ; " 

3 1 50 A$= " S4C2R2BR2BD 1 C4L6BL2BD 1 C6R2BR 1 R4BR 1 R2BD 1 C 1 4L 1 0BD 1 BR2C 1 0R6 " 



3080 
3090 
3100 
3110 
3120 
3130 
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316IÍ DRAWBM20 , 3XA* ;BM140 ,45 XA* ;BM45 , 140 XA* ;BM24iZi ,60 XA* ;BM230 , 188 XA* ;BM125 ,86XAJ 
;BM150,30XA*;" 
3170 A=3.141592# 

CIRCLE (30 ,45) ,20 , 15 , A* 1/2 ,A*3/2 
CIRCLE (40 ,45) ,23 ,15 ,A*5/8 ,A* 1 1 /8 
PAINT(16,45> ,15 

FOR B=0 TO 100 :A=INT (RND ( 1 ) *24+l ) :PLAY "N=A ; " :NEXT B 
COLOR 1 ,14,7:SCREEN 1 sWIDTH 28:CLS 



3130 
3182 
3184 
3190 
3200 
3205 
3210 
3220 



**♦*" 

listado de AUTOSencontraras ejemplos con 



C*-""THEN 3390 



podras :" 



FOR A=l TO 10 
KEY A,"" 
NEXT A 

3230 LOCATE 6 , 1 :PRINT" AUTOS 
3240 LOCATE 1 ,3 :PRINT"Dentro del 
-BASIC sobre: 

3250 LOCATE 2,7:PRINT"- MENUS" 

LOCATE 2,8:PRINT"- PANTALLAS:" 
LOCATE 14 ,9 :PRIN"T"de texto" 
LOCATE 14,10:PRINT"graf icas" 
LOCATE 14,11 :PRINT"mi>ítas" 
LOCATE 2,12:PRINT"- CEPOS" 
LOCATE 2, 13 SPRINT"- CONTADORES:" 
LOCATE 15 i 14 SPRINT" individuales" 
LOCATE 15,15:PRINT"dependientes" 
LOCATE 2,16:PRINT"- SPRITES" 
LOCATE 2,17:PRINT"- macroDRAW" 
3360 LOCATE 2,18:PRINT"- números ALEATORIOS" 
3380 LOCATE 1 ,20 :PRINT"para continuar pulsar » S 
C*=INKEY*:A=INT(RND(1) $84+12) :PLAY "N=A ; " :IF 
IF C*="S" OR C*="s" THEN ELSE GOTO 3390 
CLS: LOCATE 6,1:PRINT"# EXPLICACION *" 

lócate 6,2:print xmxmxmxxxm* 

LOCATE 1 f 4 SPRINT "con los mandos del cursor 
LOCATE 11, 6 SPRINT" ACELERAR " 
LOCATE 4 ,8 :PRINT" IZQUIERDA DERECHA" 
LOCATE 11 ,10 SPRINT" FRENAR " 
LOCATE 7, 13 SPRINT"* OPCIONES ♦" 
LOCATE 7 , 14 sPRINT" »»»»♦♦»»♦»»♦" 
LOCATE 1,16 SPRINT"! 1 |-control por TECLADO" 
LOCATE 1 ,18:PRINT"1 2 |-control por JOYSTICK" 
LOCATE 1 ,20:PRINT"pulsa 1 ó 2 " 

C*=ÍNKEY*:A=INT(RND(1) *64+12) :PLAY "N=A ; " : IF C*=""THEN 3620 
IF C*="1"THEN D=0 
IF C*="2"THEN D=l 

IF C*="1"0RC*="2"THEN ELSE GOTO 3620 
CLS:LOCATE 1 ,5 :PRINT"7eclea tu nombre " 
LOCATE l,9:PRINT"y pulsa RETURN" 
LOCATE 2, 20 : INPUT" NOMBRE" ;N* 
CLS: LOCATE 6,1:PRINT"# .REFLEJOS 
LOCATE 6,2 :PRINT" »♦»»»»»»»»»♦" 
LOCATE 2,4sPRINT"Tu coche sera el BLANCO" 
LOCATE 2,20:PRINT"Calif icate de a 9" 
3740 LOCATE 2,7:PRINT"La velocidad de los coches dependerá del numero que 

LOCATE 0,1 5 :PRINT "pulsa -1 -2-3-4-5-6-7-8-9-" 
L*=INKEY*:IF L*=" "THEN 3760 

IF L*="l" OR L*="2" OR L*="3" OR L*="4" OR L*="5" OR L*="6" 
OR L*="9" OR L*="0"THENELSE3760 
L=40\ (VAL(L*)+1) 

COLOR 14,1 ,7:SCREEN 2 ,2 ,0 :CLOSE :CLS :SPRITE ON 
ON SPRITE GOSUB 2000 
DRAW"BM103,0C8D191BM143,0D191" 



MSX 



3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 



3390 
3400 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
13670 
3680 
:3690 
3700 
3710 
3720 
3730 




pul 



OR L$="7" OR L* 



3750 
3760 
3770 

_ ii g ii 

3780 

4000 
4010 

4020 

4025 DRAW " BM99 , 0C 1 0D 1 9 1 BM 1 47 , 0D 1 9 1 " 

4200 A 1 *=CHR* ( S<H8 ) +CHR* ( ?<H 1 F ) +CHR* ( &H3 ) +CHR* (&H1B) +CHR* ( ?,H 1 F ) +CHR* ( ?,H 1 B ) +CHR* ( &H 
3) +CHR* (&H7) 

^ILo*!;^^ <?<H?) +CHR$ <&H3>+CHR * (S ' H3B) + CHR* (?<H3F) + CHR*<?,H3F ) *CHR*U,H3ü, ¡ CHR* C&H 
J ) +CHR* ( «HF ) 

lilis *ntl^Íít m * ) +CHR * (?<HF8) * CHR * (&HCei> +CHR * <*HDB> +CHR* <&HFB> +CHR* (&HDG) *. ( 

«nLIfl ) +CHR* ( &HE0 ) 



Programas 



4230 A4S=CHR* (&HE0) fCHR* (fcHCQ) +CHR* (&HDC) +CHR* (MHFC) +CHR* (ítHFC) +CHR* (&HDC) +CHR* ( 
&HC0)+CHR$ (&HF0) 

4240 SPR I TE* (0) «Al *+ A2*+ A3S+A4* 

4300 B 1 *=CHR* ( &HCF ) +CHR$ ( &HE0 ) +CHR$ < &H3E > +CHR* ( &H7 ) +CHR* ( &H77 ) +CHR* ( &H7F ) +CHR* ( & 
HF ) +CHRÍ ( &HDF ) 

43 1 B2*=CHR$ ( &HDF > +CHR$ ( &HF ) +CHR* ( &H7F ) +CHRS ( &H77 ) +CHR$ ( &H7 ) +CHR* ( &H3E ) +CHR$ ( *,H 
E0) +CHR* (&HCF) 

4320 B3*=CHR* ( &HF3 ) +CHR* ( ?<H7 ) +CHR$ ( |tH7C ) +CHR$ ( &HE0 ) +CHR* ( &HEE ) +CHR-Í ( &HEE ) +CHR$ ( & 
HF0) +CHR* (&HFB) 

4330 B4*=CHR* ( &HFB ) +CHRÍ ( &HF0 ) +CHR* ( &HFE ) +CHR* ( &HEE ) +CHR$ ( 8,HE0 ) +CHR* < &H7C ) +CHR* ( 
&H7) +CHR$ (&HF3) 

4340 SPRITE*(1)=B1*+B2*+B3$+B4* 

4590 REM abrir pantalla mixta 
4600 0PEN"GRP:"AS#1 

4700 PSET(20,25) , 1 2 : PR I NT# 1 , " PUNTOS " 
4710 PSÉT (20,85) ,12:PRINT#1 , "TIEMPO" 
4720 PSET ( 20 , 1 45 ) , 1 2 : PR I NT# 1 , " CHOQUES " 
4730 PSET (180, 25) , 12 :PRINT#1 , "KM/H" 
4740 PSET ( 180 ,85) ,12:PRINT#1 ,"V_MEDIA" 
4750 PSET (180, 145) ,12:PRINT#1 /'METROS" 
4800 GOTO 4 

5000 REM ** FINAL PARTIDA *# 

5005 SPR I TE OFF:CLS:SCREEN :S0UND8 ,0 :S0UNB9 ,0 :SOUND10 ,0 
5010 H1=W\60:H2=W-H1*60 

PRINT" Hola " ;SPC (9) ;N* 

LOCATE 1 ,4:PRINT"Hiciste " ;P;"puntos" 

LOCATE1 ,6 :PRINT"Tardaste " ;H1 ; "minutos y " ;H2 ; "segundos" 
LOCATE 1 ,8:PRINT"Chocaste ";CH; "veces" 

LOCATE1 , 10 :PRINT"Sacaste una media de " ; INT (ME) ; "Km/h" 
KX =ES/ 1 000 : K 1 ! =ES-K% * 1 000 

LOCATE 1 ,12:PRINT"Recorriste ";K*¿;"Km y " ;K1 !; "metros" 
LOCATE 1 ,21 :PRI NT" Para seguir PULSAR * S * si no * N #" 
Ci-=INKEY$:A=INT(RND(1)*24) :PLAY "N=A ; " : IF 0*» M "THEN 5200 

IF C$="S" OR C*="s"THEN 4000 ELSE IF C*="N" OR C*="n"THEN CLS ELSE 5200 
FOR A 1=0 TO 20 
FOR Bl=l TO 37 

IF B1>A1 + 1 AND BKA1+9 THEN 5250 
LOCATE Bl ,A1 :PRINT"*" 
NEXT Bl 

LOCATE A1+4,A1 :PRINT"FIN" 
NEXT Al 



5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5200 
5210 
5220 
5230 
5235 
5240 
5250 
5260 
5270 



5300 END 
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CAPTURA 
EN PLUTON 



Antes de llegar al lejano pla- 
neta Plutón una tormenta de 
meteoritos te impide el paso. 
Entre ellos -sin embargo- hay 
un valioso mineral. 




Cuando recibiste la orden de viajar a 
Plutón para recoger un valioso mine- 
ral, ignorabas que éste se hallaba entre 
los mortales meteoritos. Ahora todo 
depende de tu habilidad para manio- 
brar a altas velocidades en medio de la 
tormenta de grandes piedras siderales 
y recoger el mineral. 

Una vez que el juego comienza tu 
nave va al encuentro de la nube meteó- 
rica y tú puedes desplazarla a izquierda 
o derecha usando las teclas cursoras, 
que también te sirven para recoger el 
rico mineral. Al final de la partida, en la 
pantalla aparece la cantidad que has lo- 
grado recoger. 

Como los otros juegos en éste tam- 
bién puedes introducir mejoras, como 
agregar otra nave enviada por una na- 
ción competidora, mejorar el 
o introducir música, etc. 



10 REM * * CAPTURA EN PLUTON* * # 

23 ClS : ÍNPU I "TECLEE UN NUMERO ENTERO:" ;F 

3i3 FOR 1= 1T0 F:Y=RND(1) :NEXT 

40 SCREEN1 ,0 :A*« M " :DATA0 ,0,8 ,8 ,54 , 127 ,28 ,8 :F0R 1= 1T0 8-.READ A:A*-A*+CHR*<A> :NEX 
T I iSPRXTEf <1)«A* 

50 COLOR 8,1 ,13:KEY OFF :WIDTH32 :CLS : X = 15 : Z=& 

68 S=INT (RND ( 1 ) *32) 

70 LOCATE S,23:PRINT"#" ; 

80 S=INT(RND<1) *32) 

9iZi IF RND (IX. 7 THEN LOCATE S ,23 :PR1NT" * " ; 
liZiiZi FOR 1= 1T0 iei:NEXT I :PRINT 
110 C=VPEEK (6559+X ) 

120 IF C=42 THEN PRI NT "RECORD OBTEN I DO : " ; Z :PLAY "CEG" :END 
130 IF 035 THEN Z=Z + 1 :PLAY "L32CDE" 
140 PUT SPRITE l,(8*X-8,96> ,4,1 
150 A*=INKEY* 

160 X=X-(A*=CHR*<28)ANDX<31)+<A*=CHR*<29) AND X>0) 
170 00 TU 60 
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esa 

SYSTEM 






Ordenador Personal 

TOSHIBA HX 10 

Su Ordenado Servidor 



69.500 ptas. - 




m¡sx 




Características principales: 

Sistema standard MSX. Memoria de 64 K 
RAM, 32 K ROM y 1 6 K de pantalla. 1 6 co- 
lores. 73 teclas. 32 sprites. Sistema mul- 
ticolor 64 x 48 bloques. Sonido: 8 octa- 
vas tres acordes. Conexiones para: casette, 
impresora, 2 mandos y futuras expansior 



HTOSHIBA 

española de microordenadores s.a. 

Caballero. 79 Tel. 321 02 12 - Telex 97087 EMOS 08014 BARCELONA 



